-- background: 2753 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on idle
  put the message box into k
  if k is not empty then
    repeat with i = 1 to length(k)
      do "key " & quote & char i of k & quote
    end repeat
    put empty into the message box
  end if
end idle

on key
  put param(1) into c
  if offset(c, "qwertyuiop[]asdfghjkl;'zxcvbnm,./ ") <> 0 then
    set the hilite of button c to true
    set the hilite of button c to false
  end if
end key